object MiscGadgets: TMiscGadgets Left = 294 Top = 110 BorderIcons = [biMaximize] BorderStyle = bsDialog Caption = 'Misc. Gadgets' ClientHeight = 254 ClientWidth = 425 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter ShowHint = True TextHeight = 16 object LEDLabel1: TLEDLabel Left = 80 Top = 13 Width = 51 Height = 30 Hint = 'This is a TLEDLabel component. The caption property is being se' + 't automatically by the TRotaryKnob component.' UnlitColor = 16384 Caption = '0' Columns = 3 end object PieMeter1: TPieMeter Left = 145 Top = 7 Width = 45 Height = 45 Hint = 'This is a TPieMeter component.' Completed = 0 Font.Color = clYellow Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ForeColor = clFuchsia ParentFont = False Percent = 0 end object Image1: TImage Left = 319 Top = 199 Width = 33 Height = 33 AutoSize = True Picture.Data = {} Visible = False end object NeatoMeter1: TNeatoMeter Left = 8 Top = 60 Width = 185 Height = 57 Hint = 'This is a TNeatoMeter component.' Completed = 0 Font.Color = clBlack Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False Percent = 0 end object Image2: TImage Left = 8 Top = 192 Width = 183 Height = 55 AutoSize = True Picture.Data = {} Visible = False end object CheckBox2: TCheckBox Left = 217 Top = 17 Width = 186 Height = 18 Hint = 'Determines whether or not to display the Caption property on the' + ' TPieMeter and TNeatoMeter components.' Caption = 'Caption in Meters' TabOrder = 0 OnClick = CheckBox2Click end object RotaryKnob1: TRotaryKnob Left = 16 Top = 6 Width = 45 Height = 45 Hint = 'Turn the knob and the other gadgets will change!' Control = LEDLabel1 Max = 100 Position = 0 OnChange = RotaryKnob1Change end object CheckBox3: TCheckBox Left = 217 Top = 41 Width = 185 Height = 17 Hint = 'Determines whether or not to display the Percent completed on th' + 'e TPieMeter and TNeatoMeter components.' Caption = 'Show Percent in Meters' State = cbChecked TabOrder = 1 OnClick = CheckBox3Click end object RadioGroup1: TRadioGroup Left = 208 Top = 72 Width = 201 Height = 121 Hint = 'Set TNeatoMeter bitmap display options.' Caption = 'TNeatoMeter Bitmap Options' ItemIndex = 0 Items.Strings = ( 'Standard' 'Stretched Bitmap' 'Tiled Bitmap' 'Tiled Bitmap w/Invert') TabOrder = 2 OnClick = RadioGroup1Click end object RadioGroup2: TRadioGroup Left = 8 Top = 124 Width = 185 Height = 65 Hint = 'Determines the direction TNeatoMeter will go to indicate progres' + 's.' Caption = 'TNeatoMeter Direction' Columns = 2 ItemIndex = 0 Items.Strings = ( 'L->R' 'R->L' 'T->B' 'B->T') TabOrder = 3 OnClick = RadioGroup2Click end object ShadowButton1: TShadowButton Left = 168 Top = 210 Width = 89 Height = 33 Hint = 'Click me to make this window go away!' Cancel = True Caption = 'OK' Default = True ModalResult = 1 TabOrder = 4 end end